NIBASC 'FMTLEX  ' Filename
        CON(4) #E208      File type
        NIBHEX 0          Flags
        NIBHEX 0          Copy code
        NIBHEX 4320       Creation time
        NIBHEX 218098     Creation date
        REL(5) FILEND     FILEND
*B9725  ----------        File header end
*B9726 --LEX header--
        CON(2) #52        LEX ID
        CON(2) #61        Lowest token
        CON(2) #62        Highest token
        CON(5) #00000     NO linked LEX
        NIBHEX F          NO speed table
        CON(4) #0020      Offset to text table
        CON(4) #0000      NO message table
        REL(5) oB97D4     Offset to Poll Handler
*B973F------MAIN TABLE------
*B973F
        CON(3) #000       Offset to text
        REL(5) oB994E     IMAGE$ execution code
        NIBHEX F          char. nib
*B9748
        CON(3) #00F       Offset to text
        REL(5) oB99A1     PRINT execution code
        NIBHEX D          char. nib
*B9750---MAIN TABLE END---
*B9751---Text table---
*B9751
        CON(1) #B
        NIBASC 'IMAGE$'
        CON(2) #61        Token
*B9760
        CON(1) #9
        NIBASC 'PRINT'
        CON(2) #62        Token
        NIBHEX 1FF        Text table end
*B976F----------
oB9770  LCHEX  4
        A=DAT0 B
        ASR    A
        ?C#A   P
        GOYES  oB97F2
        GOTO   oB9A06
oB9781  C=R3
        D1=C
        A=R2
        D1=D1- 12
        CD1EX
        ?C<A   A
        GOYES  oB97F2
        R3=C
        CD1EX
        LCASC  ' FMT:A'
        DAT1=C 12
        RTNSXM
oB97AF  ?C#A   B
        GOYES  oB97F2
        GOSBVL #1A460     =D=AVMS
        D1=D1- 2
        LCHEX  D4EE
        P=     3
        GOSBVL #1BA6A     =BldIM+
        GOVLNG #1B535     =IMentr
*B97D4--------------------Poll handler
oB97D4  LCHEX  0E         =pPRTCL
        ?B=C   B
        GOYES  oB9770
        LCHEX  1E         =pIMCHR
        ?B=C   B
        GOYES  oB97F6
        C=C-1  A
        ?B=C   B
        GOYES  oB985B
        ?B=0   B
        GOYES  oB9781
oB97F2  C=-C-1 A
        RTNSXM
oB97F6  C=R1
        D1=C
        A=DAT1 A
        C=A    A
        LCHEX  D4CF
        ?C#A   A
        GOYES  oB97AF
        GOSBVL #1B41B     =CSRC5
        D1=D1+ 6
        A=DAT1 A
oB9819  ?C#A   A
        GOYES  oB97F2
        D1=D1- 6
        GOSUB  oB992A
        B=B-1  A
        GONC   oB97F2
        A=R1
        D1=A
        D1=D1+ 11
        C=DAT1 A
        C=C+C  A
        GONC   oB983E
        ST=1   10
oB983E  C=C+A  A
        GOSBVL #1B435     =CSLC5
        C=A    A
        R0=C
        A=R3
        C=A    A
        R3=C
        GOVLNG #1BAAB     =IMGxq1
oB985B  GOSBVL #18651     =D1=AVE
        D1=D1+ 8
        GOSBVL #1C053     =C+A2D1
        D0=C
        A=DAT0 A
        C=A    A
        LCHEX  CFDE
        ?C#A   A
        GOYES  oB9819
        D1=D1+ 10
        A=DAT1 B
        A=A-1  P
        A=A+1  B
        GOC    oB9895
        GOVLNG #1BC63     =USGrst
oB9895  D0=D0- 4
        DAT0=C B
        D1=D1- 5
        A=0    W
        ?ST=0  10
        GOYES  oB98A9
        A=A-1  W
oB98A9  A=DAT1 A
        D1=D1- 11
        CD1EX
        D1=C
        AD0EX
        A=A-C  A
        SB=0
        ASRB
        ?SB=0
        GOYES  oB98CA
        D1=D1- 1
        A=A+1  A
oB98CA  C=A    A
        GOSBVL #1B435     =CSLC5
        A=A+A  A
        D0=D0+ 6
        CD0EX
        C=C+A  A
        A=C    A
        GOSBVL #1B432     =CSLC6
        LCHEX  00D4CF
        DAT1=C W
        C=A    A
        GOSUB  oB992A
        GOSBVL #0F09A     =STRHDR
        D1=D1+ 4
        B=-B-1 A
        C=B    A
        DAT1=C B
        D1=D1- 4
        D1=D1- 16
        GOSBVL #1B38E     =REV$
        GOSBVL #014A6     =RST2<R
        C=R3
        D0=C
        GOVLNG #0F23C     =EXPR
oB992A  D0=C
        D0=D0- 2
        B=0    A
oB9932  A=DAT1 B
        D1=D1+ 2
        B=B+A  B
        GONC   oB9941
        B=B+1  B
oB9941  D0=D0- 2
        GONC   oB9932
        B=B-1  A
        RTNCC
        NIBHEX 411
*B994E--------------------IMAGE$ entry point
oB994E  GOSBVL #0BD31     =REVPOP
        GOSBVL #014DB     =R<RST2
        C=A    A
        AD1EX
        D0=A
        D1=D1+ 4
        AD1EX
        D1=D1- 2
        B=A    A
        GOSBVL #1B177     =MOVEU3
        LCHEX  F0         =uIMend
        DAT1=C B
        C=D    A
        CD0EX
        C=C-B  A
        D1=C
        LCHEX  CF
        DAT1=C B
        A=B    A
        GOVLNG #1B508     =USG*10
        REL(5) oB9BA6     Offset to PRINT decompile routine
        REL(5) oB9B91     Offset to PRINT parse routine
*B99A1--------------------PRINT entry point
oB99A1  GOSBVL #13E4C     =NXTVAR
        GOSUB  oB99C7
        B=0    A
        D0=(5) #2F876     RAM=S-R0-1
        C=DAT0 A
        GOSUB  oB9A48
        LCHEX  4F
        GOVLNG #17F37     =PRINT*
oB99C7  GOSBVL #0F62F     =STORE3
oB99CE  D0=(4) #F950
        C=DAT0 11
        P=     5
        LCHEX  2F891
        C=RSTK
        C+P+1
        P=     0
        D0=(4) #F872
        DAT0=C 11
        D0=(2) #91
        A=DAT0 A
        C=0    A
        DAT0=C A
        D0=A
oB9A01  XM=0
        RTNCC
oB9A06  GOSUB  oB99CE
        C=ST
        D=-D-1 A
        D=-D-1 A
        ?A=0   A
        GOYES  oB9A01
        GOSBVL #1149A     =SAVED0
        B=A    A
        D0=(5) #2F881     RAM=S-R1-0
        C=DAT0 W
        A=C    A
        D0=(2) #96
        C=DAT0 A
        D0=(2) #71
        DAT0=C W
        D0=(2) #86
        C=DAT0 A
        DAT0=A A
        B=B+B  A
        C=C+B  A
oB9A48  D0=(2) #8B
        DAT0=C A
        LCHEX  2F87D
        DCEX   A
        ?D#C   A
        GOYES  oB9A62
        LCHEX  95B
oB9A62  R1=C
        LCHEX  1BBDD
        A=C    A
        C=RSTK
        D=C    A
        C=RSTK
        A=A-C  A
        RSTK=C
        C=D    A
        RSTK=C
        GOSBVL #1864D     =GETAVM
        D0=C
        ?A#0   A
        GOYES  oB9AE7
        A=R1
        ?C=A   A
        GOYES  oB9AE7
        C=R0
        D1=C
        D1=D1+ 14
oB9A9C  D1=D1- 4
oB9A9F  D1=D1- 8
oB9AA2  GOSBVL #1BA4A     =BYTscA
        CON(2) #44
        REL(3) oB9AE4
        CON(2) #41
        REL(3) oB9B4E
        CON(2) #D0
        REL(3) oB9A9C
        CON(2) #D1
        REL(3) oB9A9F
        CON(2) #5A
        REL(3) oB9AE4
        CON(2) #4B
        REL(3) oB9B4C
        CON(2) #42
        REL(3) oB9B4C
        CON(2) #2A
        REL(3) oB9AE4
        CON(2) #48
        REL(3) oB9B4C
        CON(2) #00
        LCHEX  E6
        ?C>A   B
        GOYES  oB9AA2
        D0=D0+ 16
oB9AE4  D0=D0- 16
oB9AE7  A=B    A
oB9AE9  CD0EX
        C=C-A  A
        A=R1
        ?C=A   A
        GOYES  oB9B02
        ?D>=C  A
        GOYES  oB9B04
        GOSBVL #01308     =MOVE*M
oB9B02  C=C+B  A
oB9B04  D1=C
        C=B    A
        GOSBVL #0F09A     =STRHDR
        D1=D1- 16
        GOSBVL #1B38E     =REV$
        A=DAT1 W
        GOSBVL #0F6B3     =STRASN
        GOC    oB9B5B     to GOVLNG #09393 =MFERR
        D0=(5) #2F871     RAM=S-R0-0
        C=DAT0 W
        D0=(2) #96
        DAT0=C A
        D0=D0- 16
        C=DAT0 10
        D0=D0- 5
        DAT0=C 10
        GOTO   oB9A06
oB9B4C  A=-A   A
oB9B4E  A=DAT0 A
        GONC   oB9B56
        A=-A   A
oB9B56  A=A+B  A
        GONC   oB9AE9
oB9B5B  GOVLNG #09393     =MFERR
oB9B62  D0=D0- 2
        ST=1   8
        ST=1   9
        GOSBVL #03064     =GNXTCR
        GOSBVL #0323B     =READP5
        GOSBVL #03628     =USINGp
        GOC    oB9B8A     to GOVLNG #035B1 =DUSP30
        GOSBVL #03655     =DUS;CK
oB9B8A  GOVLNG #035B1     =DUSP30
*B9B91--------------------PRINT parse routine
oB9B91  GOSBVL #02C2A     =WRDSCN
        CON(2) #F3        TO
        REL(3) oB9B62
        CON(2) #00        token table end
        GOVLNG #03035     =REST*
*B9BA6--------------------PRINT decompile routine
oB9BA6  LCASC  ' OT'
        P=     5
        GOSBVL #05423     =OUTNBC
        GOSBVL #05922     =EXPRDC
        GOSBVL #051C1     =BLNKCK
        A=DAT1 B
        GOVLNG #05450     =DISPDC
FILEND
* DISASM started 89/08/22  00:27:30
* DISASM finished 89/08/22  00:31:51